home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update37.zoo / lib / diffc
Encoding:
Text File  |  1994-02-02  |  35.3 KB  |  1,267 lines
  1. ===================================================================
  2. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/Changelo,v
  3. retrieving revision 1.104
  4. diff -c -r1.104 Changelo
  5. *** 1.104    1993/11/29 20:44:29
  6. --- Changelo    1994/02/02 17:03:53
  7. ***************
  8. *** 4447,4449 ****
  9. --- 4447,4641 ----
  10.       around the `jra do_set'.
  11.   
  12.   ---------------------------- Patchlevel 96 ---------------------------
  13. + 
  14. + ==sync with mntlib42
  15. + ***** abs.c
  16. + ----------------------------
  17. + revision 41.2    
  18. + date: 1993/11/24 20:23:16;  author: pvt1-117;  state: Exp;  lines: +7 -0
  19. + Inline abs() and labs() for LCC.
  20. + =============================================================================
  21. + ***** bblink.c
  22. + ----------------------------
  23. + revision 41.3    
  24. + date: 1994/01/13 08:03:50;  author: schwab;  state: Exp;  lines: +29 -26
  25. + Fixed version of update for GCC 2.5
  26. + ----------------------------
  27. + revision 41.2
  28. + date: 1993/11/30 18:51:36;  author: schwab;  state: Exp;  lines: +139 -2
  29. + Updated for GCC 2.5
  30. + =============================================================================
  31. + ***** buffindf.c
  32. + ----------------------------
  33. + revision 41.2    
  34. + date: 1994/01/09 09:33:20;  author: schwab;  state: Exp;
  35. + NEW file.
  36. + The library uses the names findfile and buffindfile which are in the
  37. + user's namespace. findfile is not really used and should be move into
  38. + a separate file, and buffindfile should be renamed to _buffindfile.
  39. + I have renamed findfile.c to buffindf.c and moved the function
  40. + findfile into a new findfile.c, and changed all callers.
  41. + =============================================================================
  42. + ***** fdopen.c
  43. + ----------------------------
  44. + revision 41.3    
  45. + date: 1994/01/13 09:37:36;  author: entropy;  state: Exp;  lines: +2 -0
  46. + *** empty log message ***
  47. + ----------------------------
  48. + revision 41.2
  49. + date: 1993/11/24 20:12:04;  author: nox;  state: Exp;  lines: +1 -1
  50. + Use binary mode on tty's (under MiNT) to avoid extra ^M's.
  51. + =============================================================================
  52. + ***** findfile.c
  53. + ----------------------------
  54. + revision 41.2    
  55. + date: 1994/01/09 09:29:32;  author: schwab;  state: Exp;  lines: +2 -126
  56. + The library uses the names findfile and buffindfile which are in the
  57. + user's namespace. findfile is not really used and should be moved into
  58. + a separate file, and buffindfile should be renamed to _buffindfile.
  59. + I have renamed findfile.c to buffindf.c and moved the function
  60. + findfile into the new findfile.c, and changed all callers.
  61. + =============================================================================
  62. + ***** fopen.c
  63. + ----------------------------
  64. + revision 41.4    
  65. + date: 1994/01/09 11:12:06;  author: nox;  state: Exp;  lines: +2 -2
  66. + *** empty log message ***
  67. + ----------------------------
  68. + revision 41.3
  69. + date: 1994/01/09 11:06:16;  author: nox;  state: Exp;  lines: +2 -0
  70. + In _fopen() we seek to the end when file mode "a" is used (the kernel
  71. + won't do this until the first write.)
  72. + ----------------------------
  73. + revision 41.2
  74. + date: 1993/11/24 20:12:34;  author: nox;  state: Exp;  lines: +1 -1
  75. + Use binary mode on tty's (under MiNT) to avoid extra ^M's.
  76. + =============================================================================
  77. + ***** getpw.c
  78. + ----------------------------
  79. + revision 41.2    
  80. + date: 1993/11/30 20:40:50;  author: nox;  state: Exp;  lines: +4 -2
  81. + Convert backslashes in the home directory in the passwd file, for backwards
  82. + compatibility.
  83. + =============================================================================
  84. + ***** lib.h
  85. + ----------------------------
  86. + revision 41.2    
  87. + date: 1993/11/30 18:51:48;  author: schwab;  state: Exp;  lines: +1 -1
  88. + Use new way to declare a function that doesn't return, since
  89. + the old way wasn't ANSI conforming.
  90. + =============================================================================
  91. + ***** libgcc2.c
  92. + ----------------------------
  93. + revision 41.2    
  94. + date: 1993/11/30 18:51:58;  author: schwab;  state: Exp;  lines: +35 -62
  95. + New entry points: L_builtin_new, L_caps_New and L_builtin_del are replaced
  96. + by L_op_new, L_new_handler and L_op_delete.
  97. + =============================================================================
  98. + ***** longlong.h
  99. + ----------------------------
  100. + revision 41.2    
  101. + date: 1993/11/30 18:52:22;  author: schwab;  state: Exp;  lines: +25 -24
  102. + Updated for GCC 2.5
  103. + =============================================================================
  104. + ***** include/assert.h
  105. + ----------------------------
  106. + revision 41.3    
  107. + date: 1994/01/09 09:02:56;  author: lux;  state: Exp;  lines: +4 -13
  108. + Make assert() macro more ANSI compliant by replacing the broken assert()
  109. + macro with what was previously given as assertval(), and remove
  110. + the assertval() macro.
  111. + ----------------------------
  112. + revision 41.2
  113. + date: 1993/11/30 18:50:46;  author: schwab;  state: Exp;  lines: +1 -1
  114. + Use new way to declare a function that doesn't return, since
  115. + the old way wasn't ANSI conforming.
  116. + =============================================================================
  117. + ***** include/compiler.h
  118. + ----------------------------
  119. + revision 41.2    
  120. + date: 1993/11/30 18:50:50;  author: schwab;  state: Exp;  lines: +10 -0
  121. + Use new way to declare a function that doesn't return, since
  122. + the old way wasn't ANSI conforming.
  123. + =============================================================================
  124. + ***** include/ioctl.h
  125. + ----------------------------
  126. + revision 41.2    
  127. + date: 1993/11/24 21:09:20;  author: schwab;  state: Exp;  lines: +1 -0
  128. + Add definition of B134.
  129. + =============================================================================
  130. + ***** include/math-68881.h
  131. + ----------------------------
  132. + revision 41.2    
  133. + date: 1993/11/30 18:50:58;  author: schwab;  state: Exp;  lines: +112 -48
  134. + Give inline functions const attribute instead of declaring as const.
  135. + Fix a bug in atan2 where the function from libpml gives a different result
  136. + on the arguments (0, -1).
  137. + =============================================================================
  138. + ***** include/minimal.h
  139. + ----------------------------
  140. + revision 41.2    
  141. + date: 1993/11/30 18:51:10;  author: schwab;  state: Exp;  lines: +4 -3
  142. + Use new way to declare a function that doesn't return, since
  143. + the old way wasn't ANSI conforming.
  144. + =============================================================================
  145. + ***** include/mintbind.h
  146. + ----------------------------
  147. + revision 41.3    
  148. + date: 1994/01/09 10:01:00;  author: pvt1-117;  state: Exp;  lines: +1 -1
  149. + Some changes for Lattice C.
  150. + ----------------------------
  151. + revision 41.2
  152. + date: 1993/11/24 20:50:10;  author: hohmuth;  state: Exp;  lines: +1 -1
  153. + Fix return type of Pwaitpid() for Pure C.
  154. + =============================================================================
  155. + ***** include/osbind.h
  156. + ----------------------------
  157. + revision 41.2    
  158. + date: 1994/01/09 10:01:28;  author: pvt1-117;  state: Exp;  lines: +3 -3
  159. + Some changes for Lattice C.
  160. + =============================================================================
  161. + ***** include/stdlib.h
  162. + ----------------------------
  163. + revision 41.3    
  164. + date: 1993/11/30 18:51:16;  author: schwab;  state: Exp;  lines: +3 -3
  165. + Use new way to declare a function that doesn't return, since
  166. + the old way wasn't ANSI conforming.
  167. + ----------------------------
  168. + revision 41.2
  169. + date: 1993/11/24 20:20:46;  author: pvt1-117;  state: Exp;  lines: +10 -0
  170. + Inline abs() and labs() for LCC.
  171. + =============================================================================
  172. + ***** include/support.h
  173. + ----------------------------
  174. + revision 41.3    
  175. + date: 1994/01/09 09:28:44;  author: schwab;  state: Exp;  lines: +1 -1
  176. + Rename buffindfile() to _buffindfile().
  177. + ----------------------------
  178. + revision 41.2
  179. + date: 1993/11/30 18:51:22;  author: schwab;  state: Exp;  lines: +2 -2
  180. + Use new way to declare a function that doesn't return, since
  181. + the old way wasn't ANSI conforming.
  182. + =============================================================================
  183. + ***** include/termios.h
  184. + ----------------------------
  185. + revision 41.2    
  186. + date: 1993/11/24 21:10:38;  author: schwab;  state: Exp;  lines: +1 -0
  187. + Add definition of B134.
  188. + =============================================================================
  189. + ***** include/unistd.h
  190. + ----------------------------
  191. + revision 41.2    
  192. + date: 1993/11/30 18:51:28;  author: schwab;  state: Exp;  lines: +1 -1
  193. + Use new way to declare a function that doesn't return, since
  194. + the old way wasn't ANSI conforming.
  195. + =============================================================================
  196. + 
  197. + ==end sync
  198. + 
  199. + mincl: ++jrb
  200. +     adjust for above
  201. +     -- add target for buffindf.o
  202. +     -- adjust names for op_new etc
  203. + 
  204. + ---------------------------- Patchlevel 97 ---------------------------
  205. ===================================================================
  206. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/PatchLev.h,v
  207. retrieving revision 1.72
  208. diff -c -r1.72 PatchLev.h
  209. *** 1.72    1993/11/29 20:44:35
  210. --- PatchLev.h    1994/02/02 17:04:12
  211. ***************
  212. *** 1,5 ****
  213.   
  214. ! #define    PatchLevel "96"
  215.   
  216.   /*
  217.    *
  218. --- 1,5 ----
  219.   
  220. ! #define    PatchLevel "97"
  221.   
  222.   /*
  223.    *
  224. ===================================================================
  225. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/mincl,v
  226. retrieving revision 1.34
  227. diff -c -r1.34 mincl
  228. *** 1.34    1993/11/17 17:10:09
  229. --- mincl    1994/01/20 16:54:00
  230. ***************
  231. *** 11,18 ****
  232.   GLIB2 = _muldi3.o _divdi3.o _moddi3.o _udivdi3.o _umoddi3.o _negdi2.o \
  233.       _lshrdi3.o _lshldi3.o _ashldi3.o _ashrdi3.o _udivmoddi4.o _cmpdi2.o \
  234.       _ucmpdi2.o _floatdidf.o _floatdisf.o _fixunsdfsi.o _fixunssfsi.o \
  235. !     _fixunsdfdi.o _fixdfdi.o _fixunssfdi.o _fixsfdi.o _builtin_new.o \
  236. !     _caps_New.o _builtin_del.o _trampoline.o __main.o _ctor_list.o \
  237.       _dtor_list.o _ffsdi2.o
  238.   
  239.   GCC=     $(GLIB1) $(GLIB2) $(FCOMPD) $(FCOMPS)\
  240. --- 11,18 ----
  241.   GLIB2 = _muldi3.o _divdi3.o _moddi3.o _udivdi3.o _umoddi3.o _negdi2.o \
  242.       _lshrdi3.o _lshldi3.o _ashldi3.o _ashrdi3.o _udivmoddi4.o _cmpdi2.o \
  243.       _ucmpdi2.o _floatdidf.o _floatdisf.o _fixunsdfsi.o _fixunssfsi.o \
  244. !     _fixunsdfdi.o _fixdfdi.o _fixunssfdi.o _fixsfdi.o _op_new.o \
  245. !     _new_handler.o _op_delete.o _trampoline.o __main.o _ctor_list.o \
  246.       _dtor_list.o _ffsdi2.o
  247.   
  248.   GCC=     $(GLIB1) $(GLIB2) $(FCOMPD) $(FCOMPS)\
  249. ***************
  250. *** 38,47 ****
  251.   
  252.   #
  253.   # other portable stuff
  254. ! PORT =  a64l.o alphasor.o abs.o catch.o dirent.o findfile.o ftw.o getpw.o \
  255. !     getlogin.o getopt.o getpass.o ident.o mktemp.o putpwent.o scandir.o strlwr.o \
  256. !     strrev.o strupr.o regexp.o regsup.o textio.o random.o obstack.o \
  257. !     il.o ic.o iw.o ig.o ip.o frwbin.o ctermid.o cuserid.o ffs.o nlist.o
  258.   #
  259.   # the string library
  260.   
  261. --- 38,48 ----
  262.   
  263.   #
  264.   # other portable stuff
  265. ! PORT =  a64l.o alphasor.o abs.o buffindf.o catch.o dirent.o findfile.o ftw.o \
  266. !     getpw.o getlogin.o getopt.o getpass.o ident.o mktemp.o putpwent.o \
  267. !         scandir.o strlwr.o strrev.o strupr.o regexp.o regsup.o textio.o \
  268. !         random.o obstack.o il.o ic.o iw.o ig.o ip.o frwbin.o ctermid.o \
  269. !     cuserid.o ffs.o nlist.o
  270.   #
  271.   # the string library
  272.   
  273. ===================================================================
  274. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/abs.c,v
  275. retrieving revision 1.2
  276. diff -c -r1.2 abs.c
  277. *** 1.2    1989/03/23 18:24:23
  278. --- abs.c    1994/01/20 16:33:08
  279. ***************
  280. *** 1,6 ****
  281. --- 1,13 ----
  282.   /* return absolute values */
  283.   #include <stdlib.h>
  284.   
  285. + #ifdef abs
  286. + #undef abs
  287. + #endif
  288. + #ifdef labs
  289. + #undef labs
  290. + #endif
  291. + 
  292.   int abs(x)
  293.   int x;
  294.   { return x < 0 ? -x : x; }
  295. ===================================================================
  296. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/bblink.c,v
  297. retrieving revision 1.1
  298. diff -c -r1.1 bblink.c
  299. *** 1.1    1992/04/19 16:02:45
  300. --- bblink.c    1994/01/20 16:33:09
  301. ***************
  302. *** 5,38 ****
  303.   #include <compiler.h>
  304.   #include <stdio.h>
  305.   #include <stdlib.h>
  306.   
  307. ! /* block count struct produced by gcc -tcov */
  308. ! typedef struct _bb_count {
  309.       long    initialized;    /* has __bb_init_func been called */
  310. !     char    *filename;    /* filename for .d file          */
  311. !     long    *block_counts;  /* address of block count table   */
  312. !     long    ncount;        /* sizeof block count table       */
  313.                       /* ie: # of basic blocks in file  */
  314. !     struct _bb_count *next;    /* in memory link to next struct  */
  315. !     char    ***addr_table;  /* addr of basic block address table */
  316. !                 /* size of addr_table == ncount+1    */
  317. ! } BB_COUNT;
  318.   
  319. ! void __bb_init_func __PROTO((BB_COUNT *));
  320.   static void exit_func __PROTO((void));      /* installed to be called at exit */
  321. ! static void save_info __PROTO((BB_COUNT *));
  322.   
  323.   /* vars */
  324. ! static BB_COUNT *hdr = NULL;    /* list of all bb_count for which 
  325.                          __bb_init_func has been called */
  326.   static char first_call = 1;    /* flags first call to __bb_init_func */
  327.   static char at_exit_failed = 0; /* flag to indicate that atexit() failed */
  328.   
  329.   /*
  330. !  * called by gcc -tcov generated code on first entry into a function
  331.    */
  332.   void __bb_init_func(bb_count)
  333. ! BB_COUNT *bb_count;
  334.   {
  335.       if(at_exit_failed)
  336.       return;
  337. --- 5,48 ----
  338.   #include <compiler.h>
  339.   #include <stdio.h>
  340.   #include <stdlib.h>
  341. + #include <time.h>
  342. + #include <string.h>
  343.   
  344. ! /* block count struct produced by gcc -a */
  345. ! struct bb {
  346.       long    initialized;    /* has __bb_init_func been called */
  347. !     const char    *filename;    /* filename for .d file          */
  348. !     long    *counts;    /* address of block count table   */
  349. !     long    ncounts;    /* sizeof block count table       */
  350.                       /* ie: # of basic blocks in file  */
  351. !     struct bb *next;        /* in memory link to next struct  */
  352. !     const unsigned long    *addresses; /* addr of basic block address table */
  353. !                 /* size of address table == ncounts+1 */
  354. ! 
  355. !     /* Older GCC's did not emit these fields.  */
  356. !     long nwords;
  357. !     const char **functions;
  358. !     const long *line_nums;
  359. !     const char **filenames;
  360. ! };
  361.   
  362. ! void __bb_init_func __PROTO((struct bb *));
  363.   static void exit_func __PROTO((void));      /* installed to be called at exit */
  364. ! #ifdef OLD
  365. ! static void save_info __PROTO((struct bb *));
  366. ! #endif
  367.   
  368.   /* vars */
  369. ! static struct bb *bb_head = NULL; /* list of all bb_count for which 
  370.                          __bb_init_func has been called */
  371.   static char first_call = 1;    /* flags first call to __bb_init_func */
  372.   static char at_exit_failed = 0; /* flag to indicate that atexit() failed */
  373.   
  374.   /*
  375. !  * called by gcc -a generated code on first entry into a function
  376.    */
  377.   void __bb_init_func(bb_count)
  378. ! struct bb *bb_count;
  379.   {
  380.       if(at_exit_failed)
  381.       return;
  382. ***************
  383. *** 51,71 ****
  384.   
  385.       if(bb_count->initialized == 0)
  386.       {   /* link into list of bb_counts */
  387. !     bb_count->next = hdr;
  388. !     hdr = bb_count;
  389.       bb_count->initialized = 1;
  390.       }
  391.   }
  392.   
  393.   /*
  394.    * called on normal exit
  395.    *   write out block profile files for each bb_count struct in list.
  396.    */
  397.   static void exit_func()
  398.   {
  399. !     BB_COUNT *p;
  400.   
  401. !     for(p = hdr; p; p = p->next)
  402.          save_info(p);
  403.   }
  404.   
  405. --- 61,82 ----
  406.   
  407.       if(bb_count->initialized == 0)
  408.       {   /* link into list of bb_counts */
  409. !     bb_count->next = bb_head;
  410. !     bb_head = bb_count;
  411.       bb_count->initialized = 1;
  412.       }
  413.   }
  414.   
  415. + #ifdef OLD
  416.   /*
  417.    * called on normal exit
  418.    *   write out block profile files for each bb_count struct in list.
  419.    */
  420.   static void exit_func()
  421.   {
  422. !     struct bb *p;
  423.   
  424. !     for(p = bb_head; p; p = p->next)
  425.          save_info(p);
  426.   }
  427.   
  428. ***************
  429. *** 78,88 ****
  430.    * given a bb_count struct, save info into .d file
  431.    */
  432.   static void save_info(p)
  433. ! BB_COUNT *p;
  434.   {
  435.       FILE *fp;
  436.       long i, *bcounts;
  437. !     DINFO *dinfo = malloc(p->ncount * sizeof(DINFO));
  438.   
  439.       if(!dinfo)
  440.       {
  441. --- 89,99 ----
  442.    * given a bb_count struct, save info into .d file
  443.    */
  444.   static void save_info(p)
  445. ! struct bb *p;
  446.   {
  447.       FILE *fp;
  448.       long i, *bcounts;
  449. !     DINFO *dinfo = malloc(p->ncounts * sizeof(DINFO));
  450.   
  451.       if(!dinfo)
  452.       {
  453. ***************
  454. *** 97,118 ****
  455.       return;
  456.       }
  457.       /* read .d file & accumulate counts */
  458. !     for(i = 0, bcounts = p->block_counts;
  459.           fscanf(fp, "%ld%ld", &dinfo[i].lineno, &dinfo[i].count) == 2; i++)
  460.       {
  461. !     if(i >= p->ncount)
  462.           {
  463.             fprintf(stderr, "Block counts in %s exceed expected %ld, rest skipped\n",
  464. !             p->filename, p->ncount);
  465.             break;
  466.           }
  467.       dinfo[i].count += bcounts[i];
  468.       }
  469.       fclose(fp);
  470. !     if(i < p->ncount)
  471.       {
  472.         fprintf(stderr, "Warning Block counts in %s less than expected %ld\n",
  473. !             p->filename, p->ncount);
  474.       }
  475.       if((fp = fopen(p->filename, "w")) == NULL)
  476.       {
  477. --- 108,129 ----
  478.       return;
  479.       }
  480.       /* read .d file & accumulate counts */
  481. !     for(i = 0, bcounts = p->counts;
  482.           fscanf(fp, "%ld%ld", &dinfo[i].lineno, &dinfo[i].count) == 2; i++)
  483.       {
  484. !     if(i >= p->ncounts)
  485.           {
  486.             fprintf(stderr, "Block counts in %s exceed expected %ld, rest skipped\n",
  487. !             p->filename, p->ncounts);
  488.             break;
  489.           }
  490.       dinfo[i].count += bcounts[i];
  491.       }
  492.       fclose(fp);
  493. !     if(i < p->ncounts)
  494.       {
  495.         fprintf(stderr, "Warning Block counts in %s less than expected %ld\n",
  496. !             p->filename, p->ncounts);
  497.       }
  498.       if((fp = fopen(p->filename, "w")) == NULL)
  499.       {
  500. ***************
  501. *** 120,126 ****
  502.       free(dinfo);
  503.       return;
  504.       }
  505. !     for(i = 0; i < p->ncount; i++)
  506.       {
  507.       if(fprintf(fp, "\t%ld\t%ld\n", dinfo[i].lineno, dinfo[i].count) == EOF)
  508.       {
  509. --- 131,137 ----
  510.       free(dinfo);
  511.       return;
  512.       }
  513. !     for(i = 0; i < p->ncounts; i++)
  514.       {
  515.       if(fprintf(fp, "\t%ld\t%ld\n", dinfo[i].lineno, dinfo[i].count) == EOF)
  516.       {
  517. ***************
  518. *** 133,135 ****
  519. --- 144,275 ----
  520.       fclose(fp);
  521.       free(dinfo);
  522.   }
  523. + 
  524. + #else /* !OLD */
  525. + 
  526. + /* from GCC's libgcc2.c */
  527. + 
  528. + /* Return the number of digits needed to print a value */
  529. + /* __inline__ */ static int num_digits (long value, int base)
  530. + {
  531. +   int minus = (value < 0 && base != 16);
  532. +   unsigned long v = (minus) ? -value : value;
  533. +   int ret = minus;
  534. + 
  535. +   do
  536. +     {
  537. +       v /= base;
  538. +       ret++;
  539. +     }
  540. +   while (v);
  541. + 
  542. +   return ret;
  543. + }
  544. + 
  545. + static void
  546. + exit_func (void)
  547. + {
  548. +   FILE *file = fopen ("bb.out", "a");
  549. +   time_t time_value;
  550. + 
  551. +   if (!file)
  552. +     perror ("bb.out");
  553. + 
  554. +   else
  555. +     {
  556. +       struct bb *ptr;
  557. + 
  558. +       time (&time_value);
  559. +       fprintf (file, "Basic block profiling finished on %s\n", ctime (&time_value));
  560. + 
  561. +       /* We check the length field explicitly in order to allow compatibility
  562. +      with older GCC's which did not provide it.  */
  563. + 
  564. +       for (ptr = bb_head; ptr != (struct bb *) NULL; ptr = ptr->next)
  565. +     {
  566. +       int i;
  567. +       int func_p    = (ptr->nwords >= sizeof (struct bb) && ptr->nwords <= 1000);
  568. +       int line_p    = (func_p && ptr->line_nums);
  569. +       int file_p    = (func_p && ptr->filenames);
  570. +       long ncounts    = ptr->ncounts;
  571. +       long cnt_max  = 0;
  572. +       long line_max = 0;
  573. +       long addr_max = 0;
  574. +       int file_len    = 0;
  575. +       int func_len    = 0;
  576. +       int blk_len    = num_digits (ncounts, 10);
  577. +       int cnt_len;
  578. +       int line_len;
  579. +       int addr_len;
  580. + 
  581. +       fprintf (file, "File %s, %ld basic blocks \n\n",
  582. +            ptr->filename, ncounts);
  583. + 
  584. +       /* Get max values for each field.  */
  585. +       for (i = 0; i < ncounts; i++)
  586. +         {
  587. +           const char *p;
  588. +           int len;
  589. + 
  590. +           if (cnt_max < ptr->counts[i])
  591. +         cnt_max = ptr->counts[i];
  592. + 
  593. +           if (addr_max < ptr->addresses[i])
  594. +         addr_max = ptr->addresses[i];
  595. + 
  596. +           if (line_p && line_max < ptr->line_nums[i])
  597. +         line_max = ptr->line_nums[i];
  598. + 
  599. +           if (func_p)
  600. +         {
  601. +           p = (ptr->functions[i]) ? (ptr->functions[i]) : "<none>";
  602. +           len = strlen (p);
  603. +           if (func_len < len)
  604. +             func_len = len;
  605. +         }
  606. + 
  607. +           if (file_p)
  608. +         {
  609. +           p = (ptr->filenames[i]) ? (ptr->filenames[i]) : "<none>";
  610. +           len = strlen (p);
  611. +           if (file_len < len)
  612. +             file_len = len;
  613. +         }
  614. +         }
  615. + 
  616. +       addr_len = num_digits (addr_max, 16);
  617. +       cnt_len  = num_digits (cnt_max, 10);
  618. +       line_len = num_digits (line_max, 10);
  619. + 
  620. +       /* Now print out the basic block information.  */
  621. +       for (i = 0; i < ncounts; i++)
  622. +         {
  623. +           fprintf (file,
  624. +                "    Block #%*d: executed %*ld time(s) address= 0x%.*lx",
  625. +                blk_len, i+1,
  626. +                cnt_len, ptr->counts[i],
  627. +                addr_len, ptr->addresses[i]);
  628. + 
  629. +           if (func_p)
  630. +         fprintf (file, " function= %-*s", func_len,
  631. +              (ptr->functions[i]) ? ptr->functions[i] : "<none>");
  632. + 
  633. +           if (line_p)
  634. +         fprintf (file, " line= %*ld", line_len, ptr->line_nums[i]);
  635. + 
  636. +           if (file_p)
  637. +         fprintf (file, " file= %s",
  638. +              (ptr->filenames[i]) ? ptr->filenames[i] : "<none>");
  639. + 
  640. +           fprintf (file, "\n");
  641. +         }
  642. + 
  643. +       fprintf (file, "\n");
  644. +       fflush (file);
  645. +     }
  646. + 
  647. +       fprintf (file, "\n\n");
  648. +       fclose (file);
  649. +     }
  650. + }
  651. + #endif /* OLD */
  652. ===================================================================
  653. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fdopen.c,v
  654. retrieving revision 1.13
  655. diff -c -r1.13 fdopen.c
  656. *** 1.13    1993/10/26 23:52:27
  657. --- fdopen.c    1994/01/20 16:33:09
  658. ***************
  659. *** 5,10 ****
  660. --- 5,12 ----
  661.   #include <unistd.h>
  662.   #include <errno.h>
  663.   
  664. + extern int __mint;
  665. + 
  666.   FILE *fdopen(h, mode)
  667.       register int h;
  668.       register const char *mode;
  669. ***************
  670. *** 59,65 ****
  671.           iomode |= O_RDWR;
  672.   
  673.       if(isatty(h))
  674. !         f |= (_IODEV | _IONBF);
  675.       else
  676.           f |= _IOFBF;
  677.       fp->_file = h;            /* file handle */
  678. --- 61,67 ----
  679.           iomode |= O_RDWR;
  680.   
  681.       if(isatty(h))
  682. !         f |= __mint ? (_IODEV | _IONBF | _IOBIN) : (_IODEV | _IONBF);
  683.       else
  684.           f |= _IOFBF;
  685.       fp->_file = h;            /* file handle */
  686. ===================================================================
  687. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/findfile.c,v
  688. retrieving revision 1.14
  689. diff -c -r1.14 findfile.c
  690. *** 1.14    1993/10/26 23:52:30
  691. --- findfile.c    1994/01/20 16:33:10
  692. ***************
  693. *** 1,137 ****
  694. - /* findfile: given a base filename, a list of directories, and a list
  695. -    of possible extensions to the filename, attempts to find a file.
  696. -    Useful for doing, e.g. spawnvp. Note that the current directory
  697. -    is always searched first! If the filename already contains a
  698. -    path specification (or extension) then the given path list
  699. -    (or extension list) is ignored.
  700. -    Returns the name by which the file was found, or NULL.
  701. - 
  702. -    Written by Eric R. Smith and placed in the public domain.
  703. - 
  704. -    rehacked by Uwe Ohse, 28.4.93, to support reentrant spawn/popen.
  705. - */
  706. - 
  707.   #include <compiler.h>
  708.   #include <limits.h>    /* needed for PATH_MAX */
  709.   #include <support.h>
  710. - #include <stddef.h>
  711. - #include <types.h>
  712. - #include <stat.h>
  713. - #include <string.h>
  714. - 
  715. - /* characters used to separate components in a path list */
  716. - #define PATHSEP1        ':'
  717. - #define PATHSEP2        ','
  718. - 
  719. - /* characters used to separate directory names in a file */
  720. - #define DIRSEP1         '\\'    /* native OS directory separator */
  721. - #define DIRSEP2         '/'     /* for emulating another OS */
  722. - 
  723. - static char *const nullext[] = { NULL };
  724. - 
  725. - static int EXISTS __PROTO((const char *));
  726.   
  727. - static int
  728. - EXISTS(name)
  729. -     const char *name;
  730. - {
  731. -     struct stat dummy;
  732. - 
  733. -     if (stat(name, &dummy) != 0)
  734. -         return 0;
  735. -     if ( (dummy.st_mode & S_IFMT) != S_IFREG )
  736. -         return 0;
  737. -     return 1;
  738. - }
  739. - 
  740. - 
  741.   char *
  742.   findfile(fname, fpath, fext)
  743.           const char *fname, *fpath;
  744.       char *const *fext;
  745.   {
  746. !       /* simply calls buffindfile */
  747.         static char try[PATH_MAX];
  748. !       return buffindfile(fname,fpath,fext,try);
  749. ! }
  750. ! 
  751. ! 
  752. ! char *
  753. ! buffindfile(fname, fpath, fext, try)
  754. !       const char *fname, *fpath;
  755. !       char *const *fext, *try;
  756. ! {
  757. !       char *s, *extplace, *const *nextext, c;
  758. !       const char *t;
  759. !       int  hasext = 0, haspath = 0;
  760. ! 
  761. !     if (!fname || !*fname)
  762. !         return NULL;
  763. ! 
  764. !       s = try; t = fname;
  765. ! 
  766. ! /* copy the file in, checking to see if a path and/or extension are already
  767. !    given */
  768. ! 
  769. !       while ( (c = *t++) != 0 )
  770. !       {
  771. !               if (c == DIRSEP1 || c == DIRSEP2)
  772. !               {
  773. !                       haspath = 1;
  774. !                       hasext = 0;
  775. !               }
  776. !               else if (c == '.')
  777. !                       hasext = 1;
  778. !               *s++ = c;
  779. !       }
  780. !       extplace = s;
  781. !       *s = 0;
  782. ! 
  783. !       if (haspath || !fpath)
  784. !               fpath = "";
  785. !       if (hasext || !fext)
  786. !               fext = nullext;
  787. ! 
  788. !       for(;;) {               /* loop on path elements */
  789. !               nextext = fext;
  790. !         if (!hasext) {
  791. !             extplace[0] = 0;
  792. !             extplace[1] = 0;
  793. !         }
  794. ! 
  795. !         if (EXISTS(try))
  796. !             return try;
  797. !         extplace[0] = '.';
  798. !               while(*nextext) {       /* loop on extensions */
  799. !                       (void)strcpy(&extplace[1], *nextext++);
  800. !                       if (EXISTS(try))
  801. !                               return try;
  802. !               }
  803. !               if (!*fpath) break;  /* no more places to look */
  804. ! 
  805. ! /* copy in next element of path list */
  806. !               s = try;
  807. !         /* an attempt to accomodate within reason TOS specs  -- mj */
  808. !         if (*(fpath + 1) == ':') {
  809. !             if ((*(fpath + 2) == DIRSEP1 ||
  810. !                  *(fpath + 2) == DIRSEP2)   &&
  811. !                 (*fpath != '.' && *fpath != ':')) {
  812. !                 *s++ = *fpath++;
  813. !                 *s++ = *fpath++;
  814. !                 *s++ = *fpath++;
  815. !             }
  816. !         }
  817. !               while ((c = *fpath) != 0 && c != PATHSEP1 && c != PATHSEP2) {
  818. !                       *s++ = c;
  819. !                       fpath++;
  820. !               }
  821. !               if (c)
  822. !                       fpath++;
  823. !               *s++ = DIRSEP1;
  824. !               t = fname;
  825. !               while ((*s++ = *t++) != 0)
  826. !                       ;
  827. !               extplace = --s ;        /* where the extension gets written */
  828. !       }
  829. !       return NULL;
  830.   }
  831. --- 1,13 ----
  832.   #include <compiler.h>
  833.   #include <limits.h>    /* needed for PATH_MAX */
  834.   #include <support.h>
  835.   
  836.   char *
  837.   findfile(fname, fpath, fext)
  838.           const char *fname, *fpath;
  839.       char *const *fext;
  840.   {
  841. !       /* simply calls _buffindfile */
  842.         static char try[PATH_MAX];
  843. !       return _buffindfile(fname,fpath,fext,try);
  844.   }
  845. ===================================================================
  846. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fopen.c,v
  847. retrieving revision 1.21
  848. diff -c -r1.21 fopen.c
  849. *** 1.21    1993/10/26 23:52:31
  850. --- fopen.c    1994/01/20 16:33:10
  851. ***************
  852. *** 71,81 ****
  853.           return(NULL);        /* file open/create error */
  854.           }
  855.       if(isatty(h))
  856. !         f |= (_IODEV | _IOLBF);
  857.       else
  858.           f |= _IOFBF;
  859.       fp->_file = h;            /* file handle */
  860.       fp->_flag = f;            /* file status flags */
  861.   
  862.       return(fp);
  863.       }
  864. --- 71,83 ----
  865.           return(NULL);        /* file open/create error */
  866.           }
  867.       if(isatty(h))
  868. !         f |= __mint ? (_IODEV | _IONBF| _IOBIN) : (_IODEV | _IONBF);
  869.       else
  870.           f |= _IOFBF;
  871.       fp->_file = h;            /* file handle */
  872.       fp->_flag = f;            /* file status flags */
  873. +     if (iomode & O_APPEND)
  874. +         (void) fseek(fp, 0L, SEEK_END);
  875.   
  876.       return(fp);
  877.       }
  878. ===================================================================
  879. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/getpw.c,v
  880. retrieving revision 1.14
  881. diff -c -r1.14 getpw.c
  882. *** 1.14    1993/10/26 23:52:39
  883. --- getpw.c    1994/01/20 16:33:10
  884. ***************
  885. *** 382,392 ****
  886.       *cp++ = 0x00;
  887.       curentry.pw_dir = cp;
  888.       for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  889. !       ;
  890.       *cp++ = 0x00;
  891.       curentry.pw_shell = cp;
  892.       for (; ((*cp != 0x00) && (*cp != ':') && (*cp != '\n')); cp++)
  893. !       ;
  894.       *cp = 0x00;
  895.       if (curentry.pw_age == NULL)
  896.         curentry.pw_age = cp; /* Don't return NULL, return a null string */
  897. --- 382,394 ----
  898.       *cp++ = 0x00;
  899.       curentry.pw_dir = cp;
  900.       for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  901. !       if (*cp == '\\')
  902. !     *cp = '/';
  903.       *cp++ = 0x00;
  904.       curentry.pw_shell = cp;
  905.       for (; ((*cp != 0x00) && (*cp != ':') && (*cp != '\n')); cp++)
  906. !       if (*cp == '\\')
  907. !     *cp = '/';
  908.       *cp = 0x00;
  909.       if (curentry.pw_age == NULL)
  910.         curentry.pw_age = cp; /* Don't return NULL, return a null string */
  911. ===================================================================
  912. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/lib.h,v
  913. retrieving revision 1.11
  914. diff -c -r1.11 lib.h
  915. *** 1.11    1993/10/26 23:52:40
  916. --- lib.h    1994/01/20 16:33:11
  917. ***************
  918. *** 61,67 ****
  919.   __EXTERN void    _setstack    __PROTO((char *));
  920.   __EXTERN void    _crtinit    __PROTO((void));
  921.   __EXTERN void    _acc_main    __PROTO((void));
  922. ! __EXTERN __EXITING    __exit    __PROTO((long status));
  923.   
  924.   __EXTERN void    _fclose_all_files __PROTO((void));
  925.   /* from the TOS GCC library */
  926. --- 61,67 ----
  927.   __EXTERN void    _setstack    __PROTO((char *));
  928.   __EXTERN void    _crtinit    __PROTO((void));
  929.   __EXTERN void    _acc_main    __PROTO((void));
  930. ! __EXTERN __EXITING    __exit    __PROTO((long status)) __NORETURN;
  931.   
  932.   __EXTERN void    _fclose_all_files __PROTO((void));
  933.   /* from the TOS GCC library */
  934. ===================================================================
  935. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/libgcc2.c,v
  936. retrieving revision 1.1
  937. diff -c -r1.1 libgcc2.c
  938. *** 1.1    1993/05/21 12:58:15
  939. --- libgcc2.c    1994/01/20 16:57:41
  940. ***************
  941. *** 36,41 ****
  942. --- 36,46 ----
  943.   #include "gstddef.h"
  944.   #endif
  945.   
  946. + /* Don't use `fancy_abort' here even if config.h says to use it.  */
  947. + #ifdef abort
  948. + #undef abort
  949. + #endif
  950. + 
  951.   #else
  952.   
  953.   /* For the atari, include the relevant parts of config/m68k.h directly. */
  954. ***************
  955. *** 55,63 ****
  956.   #include <stddef.h>
  957.   #endif
  958.   
  959. ! /* Define this if most significant byte of a word is the lowest numbered.  */
  960. ! /* That is true on the 68000.  */
  961. ! #define BYTES_BIG_ENDIAN 1
  962.   
  963.   /* Define this if most significant word of a multiword number is the lowest
  964.      numbered.  */
  965. --- 60,77 ----
  966.   #include <stddef.h>
  967.   #endif
  968.   
  969. ! #if 0
  970. ! /* Define for XFmode extended real floating point support.  */
  971. ! #define LONG_DOUBLE_TYPE_SIZE 96
  972. ! #else
  973. ! /* Don't try using XFmode.  */
  974. ! #define LONG_DOUBLE_TYPE_SIZE 64
  975. ! #endif
  976. ! 
  977. ! /* Define this if most significant bit is lowest numbered
  978. !    in instructions that operate on numbered bit-fields.
  979. !    This is true for 68020 insns such as bfins and bfexts.  */
  980. ! #define BITS_BIG_ENDIAN 1
  981.   
  982.   /* Define this if most significant word of a multiword number is the lowest
  983.      numbered.  */
  984. ***************
  985. *** 69,76 ****
  986.   /* number of bits in an addressable storage unit */
  987.   #define BITS_PER_UNIT 8
  988.   
  989. ! /* for this file this is always true, never compile anything in here with
  990. !    -mshort */
  991.   #define BITS_PER_WORD 32
  992.   
  993.   /* This is the library routine that is used
  994. --- 83,92 ----
  995.   /* number of bits in an addressable storage unit */
  996.   #define BITS_PER_UNIT 8
  997.   
  998. ! /* Width in bits of a "word", which is the contents of a machine register.
  999. !    Note that this is not necessarily the width of data type `int';
  1000. !    if using 16-bit ints on a 68000, this would still be 32.
  1001. !    But on a machine with 16-bit registers, this would be 16.  */
  1002.   #define BITS_PER_WORD 32
  1003.   
  1004.   /* This is the library routine that is used
  1005. ***************
  1006. *** 172,177 ****
  1007. --- 188,199 ----
  1008.   
  1009.   extern DItype __fixunssfdi (SFtype a);
  1010.   extern DItype __fixunsdfdi (DFtype a);
  1011. + #if LONG_DOUBLE_TYPE_SIZE == 96
  1012. + extern DItype __fixunsxfdi (XFtype a);
  1013. + #endif
  1014. + #if LONG_DOUBLE_TYPE_SIZE == 128
  1015. + extern DItype __fixunstfdi (TFtype a);
  1016. + #endif
  1017.   
  1018.   #if defined (L_negdi2) || defined (L_divdi3) || defined (L_moddi3)
  1019.   #if defined (L_divdi3) || defined (L_moddi3)
  1020. ***************
  1021. *** 697,702 ****
  1022. --- 719,725 ----
  1023.   
  1024.   #ifdef L_divdi3
  1025.   UDItype __udivmoddi4 ();
  1026. + 
  1027.   DItype
  1028.   __divdi3 (u, v)
  1029.        DItype u, v;
  1030. ***************
  1031. *** 1094,1100 ****
  1032.   #endif
  1033.   
  1034.   #if defined(L_fixunsxfsi) && LONG_DOUBLE_TYPE_SIZE == 96
  1035. ! #include "glimits.h"
  1036.   
  1037.   USItype
  1038.   __fixunsxfsi (a)
  1039. --- 1117,1123 ----
  1040.   #endif
  1041.   
  1042.   #if defined(L_fixunsxfsi) && LONG_DOUBLE_TYPE_SIZE == 96
  1043. ! #include <limits.h>
  1044.   
  1045.   USItype
  1046.   __fixunsxfsi (a)
  1047. ***************
  1048. *** 1150,1162 ****
  1049.   
  1050.   /* frills for C++ */
  1051.   
  1052. ! #ifdef L_builtin_new
  1053.   #include <memory.h>
  1054.   
  1055.   typedef void (*vfp)(void);
  1056.   
  1057.   extern vfp __new_handler;
  1058.   
  1059.   void *
  1060.   __builtin_new (size_t sz)
  1061.   {
  1062. --- 1173,1186 ----
  1063.   
  1064.   /* frills for C++ */
  1065.   
  1066. ! #ifdef L_op_new
  1067.   #include <memory.h>
  1068.   
  1069.   typedef void (*vfp)(void);
  1070.   
  1071.   extern vfp __new_handler;
  1072.   
  1073. + /* void * operator new (size_t sz) */
  1074.   void *
  1075.   __builtin_new (size_t sz)
  1076.   {
  1077. ***************
  1078. *** 1170,1178 ****
  1079.       (*__new_handler) ();
  1080.     return p;
  1081.   }
  1082. ! #endif
  1083.   
  1084. ! #ifdef L_caps_New
  1085.   
  1086.     /* Avoid forcing the library's meaning of `write' on the user program
  1087.        by using the "internal" name (for use within the library)  */
  1088. --- 1194,1202 ----
  1089.       (*__new_handler) ();
  1090.     return p;
  1091.   }
  1092. ! #endif /* L_op_new */
  1093.   
  1094. ! #ifdef L_new_handler
  1095.   
  1096.     /* Avoid forcing the library's meaning of `write' on the user program
  1097.        by using the "internal" name (for use within the library)  */
  1098. ***************
  1099. *** 1185,1215 ****
  1100.   
  1101.   vfp __new_handler = default_new_handler;
  1102.   
  1103. - void *
  1104. - __builtin_vec_new (p, maxindex, size, ctor)
  1105. -      void *p;
  1106. -      size_t maxindex;
  1107. -      size_t size;
  1108. -      void (*ctor)(void *);
  1109. - {
  1110. -   size_t i;
  1111. -   size_t nelts = maxindex + 1;
  1112. -   void *rval;
  1113. - 
  1114. -   if (p == 0)
  1115. -     p = __builtin_new (nelts * size);
  1116. - 
  1117. -   rval = p;
  1118. - 
  1119. -   for (i = 0; i < nelts; i++)
  1120. -     {
  1121. -       (*ctor) (p);
  1122. -       p += size;
  1123. -     }
  1124. - 
  1125. -   return rval;
  1126. - }
  1127. - 
  1128.   vfp
  1129.   __set_new_handler (handler)
  1130.        vfp handler;
  1131. --- 1209,1214 ----
  1132. ***************
  1133. *** 1243,1283 ****
  1134.     _exit (-1);
  1135.   }
  1136.   #endif
  1137. - 
  1138. - #ifdef L_builtin_del
  1139. - typedef void (*vfp)(void);
  1140.   
  1141.   void
  1142.   __builtin_delete (void *ptr)
  1143.   {
  1144.     if (ptr)
  1145.       free (ptr);
  1146.   }
  1147. - 
  1148. - void
  1149. - __builtin_vec_delete (ptr, maxindex, size, dtor, auto_delete_vec, auto_delete)
  1150. -      void *ptr;
  1151. -      size_t maxindex;
  1152. -      size_t size;
  1153. -      void (*dtor)(void *, int);
  1154. -      int auto_delete;
  1155. - {
  1156. -   size_t i;
  1157. -   size_t nelts = maxindex + 1;
  1158. -   void *p = ptr;
  1159. - 
  1160. -   ptr += nelts * size;
  1161. - 
  1162. -   for (i = 0; i < nelts; i++)
  1163. -     {
  1164. -       ptr -= size;
  1165. -       (*dtor) (ptr, auto_delete);
  1166. -     }
  1167. - 
  1168. -   if (auto_delete_vec)
  1169. -     __builtin_delete (p);
  1170. - }
  1171. - 
  1172.   #endif
  1173.   
  1174.   #ifdef L_trampoline
  1175. --- 1242,1256 ----
  1176.     _exit (-1);
  1177.   }
  1178.   #endif
  1179.   
  1180. + #ifdef L_op_delete
  1181. + /* void operator delete (void *ptr) */
  1182.   void
  1183.   __builtin_delete (void *ptr)
  1184.   {
  1185.     if (ptr)
  1186.       free (ptr);
  1187.   }
  1188.   #endif
  1189.   
  1190.   #ifdef L_trampoline
  1191. ===================================================================
  1192. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/longlong.h,v
  1193. retrieving revision 1.1
  1194. diff -c -r1.1 longlong.h
  1195. *** 1.1    1993/05/21 12:58:16
  1196. --- longlong.h    1994/01/20 16:33:12
  1197. ***************
  1198. *** 411,443 ****
  1199.          : "=d" ((USItype)(count))                    \
  1200.          : "od" ((USItype)(x)), "n" (0))
  1201.   #else /* not mc68020 */
  1202.   #define umul_ppmm(xh, xl, a, b) \
  1203.     __asm__ ("| Inlined umul_ppmm
  1204. !     movel    %2,d0
  1205. !     movel    %3,d1
  1206. !     movel    d0,d2
  1207. !     swap    d0
  1208. !     movel    d1,d3
  1209. !     swap    d1
  1210. !     movew    d2,d4
  1211. !     mulu    d3,d4
  1212. !     mulu    d1,d2
  1213. !     mulu    d0,d3
  1214. !     mulu    d0,d1
  1215. !     movel    d4,d0
  1216. !     eorw    d0,d0
  1217. !     swap    d0
  1218. !     addl    d0,d2
  1219. !     addl    d3,d2
  1220.       jcc    1f
  1221. !     addl    #65536,d1
  1222. ! 1:    swap    d2
  1223. !     moveq    #0,d0
  1224. !     movew    d2,d0
  1225. !     movew    d4,d2
  1226. !     movel    d2,%1
  1227. !     addl    d1,d0
  1228. !     movel    d0,%0"                            \
  1229.          : "=g" ((USItype)(xh)),                    \
  1230.            "=g" ((USItype)(xl))                    \
  1231.          : "g" ((USItype)(a)),                    \
  1232. --- 411,444 ----
  1233.          : "=d" ((USItype)(count))                    \
  1234.          : "od" ((USItype)(x)), "n" (0))
  1235.   #else /* not mc68020 */
  1236. + /* %/ inserts REGISTER_PREFIX.  */
  1237.   #define umul_ppmm(xh, xl, a, b) \
  1238.     __asm__ ("| Inlined umul_ppmm
  1239. !     movel    %2,%/d0
  1240. !     movel    %3,%/d1
  1241. !     movel    %/d0,%/d2
  1242. !     swap    %/d0
  1243. !     movel    %/d1,%/d3
  1244. !     swap    %/d1
  1245. !     movew    %/d2,%/d4
  1246. !     mulu    %/d3,%/d4
  1247. !     mulu    %/d1,%/d2
  1248. !     mulu    %/d0,%/d3
  1249. !     mulu    %/d0,%/d1
  1250. !     movel    %/d4,%/d0
  1251. !     eorw    %/d0,%/d0
  1252. !     swap    %/d0
  1253. !     addl    %/d0,%/d2
  1254. !     addl    %/d3,%/d2
  1255.       jcc    1f
  1256. !     addl    #65536,%/d1
  1257. ! 1:    swap    %/d2
  1258. !     moveq    #0,%/d0
  1259. !     movew    %/d2,%/d0
  1260. !     movew    %/d4,%/d2
  1261. !     movel    %/d2,%1
  1262. !     addl    %/d1,%/d0
  1263. !     movel    %/d0,%0"                        \
  1264.          : "=g" ((USItype)(xh)),                    \
  1265.            "=g" ((USItype)(xl))                    \
  1266.          : "g" ((USItype)(a)),                    \
  1267.